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**F ILE**1D**PASHALT 

3 

| ; 

: 

: 

; 

| , 

; 
PPPPPPPP AAAAAA SSSSSSSS_ HH HH AAAAAA— LL TTTITITITT | : 
PPPPPPPP AAAAAA SSSSSSSS HH HH  AAAAAA LL TTTTTTTTTT : 
ve PP AA AA SS HH HH AA AA LL TT | ; 
PP PP AA AA SS HH HH AA AA LL TT : 
PP PP AA AA SS HH HH AA AA LL TT : 
ee PP AA AA SS HH HH AA AA LL TT ; 
PPPPPPPP = AA AA SSSSSS_-—s- HHHHHHHHHH = AA AA LL TT : 
PPPPPPPP = AA SSSSSS__  HHHHHHHHHH AA AA LL TT ; 
PP AAAAAAAAAA SS HH HH AAAAAAAAAA LL TT : 
aa AAAAAAAAAA SS HH HH AAAAAAAAAA LL TT ; 
PP AA AA SS HH HH AA AA LL TT aan : 
PP AA AA SS HH HH AA AA LL TT ope : 
da AA AA SSSSSSSS_—-HH HH AA AA LLLLLLLLLL TT ee 3 
PP AA AA SSSSSSSS_—-HH HH AA AA LLLLLLLLLL TT anne | : 
LL WII SSSSSSSS ; 
LL HI SSSSSSSS | : 
LL I] S$ : 
LL 1] S$ | : 
LL 1] SS ; 
LL 1] S$ : 
LL 1] SSSSSS ; 
LL 1] SSSSSS ; 
LL 1] S$ : 
LL 1] S$ ; 
LL 1] SS : 
LL 1] $$ : 
LLLLLLLLLL =I «= SSSSSSSS ; 
LLLLLLLLLL §=—sSTIIII) = SSSSSSSS : 
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PASSHALT HALT procedure 16-Sep-1984 01:38:44 AX-11 Bliss-32 V4.0-742 Pa 1) 
14 at 7 3:38:94 PASRTL.SRCIPASHALT. B32;1 - (1) 


: 1 001 MODULE PASSHALT ( %T ITLE Mahl procedure’ ; ; 
3 g Oe en NT = ! File: PASHALT.B32 Edit: $BL1001 : 
; 4 0004 1 BEGIN : 
; 5 0005 1! | : 
3 $ Boe 1 LRA RRR ERR RARER AREER EERE EERE AREER EEE ; 
3 '® & | Py 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | : 
; 7 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; 19 Bag : :* ALL RIGHTS RESERVED. * : 
Ps .* * : 
; \¢ Bag 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
7 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS O CH LICENSE AND WITH THE * : 
; 8614 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWA R ANY OTHER * 3 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * > 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
: \ SFA : ” TRANSFERRED. * : 
s i ® 

; 19 0019 1 !« pie | or ye IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; @& 0020 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $3 poe) ! i? CORPORATION. * 

: if w 

oa on 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR Oe. LARELITY OF ITS * 

: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 

; 0025 1 !* * 

; @& 0026 1 !* * 

: e7 QO27 1 eer eee eee RRA ERERRAEREA RE EEEEEARAARAERARA RRR AARERE RR ERER 

;. & 0028 1! 

ae, 0029 1 

:. = 0030 1 !++ 

ca 0031 1! FACILITY: Pascal Language Support 

3. Be 0032 1! | 

; i 0033 1 ' ABSTRACT: 

; 0034 1! | 

= 0035 1: This procedure is called by the compiled code to perform 

; 0036 1! the HALT procedure. ‘ | 

ae 0037 1: 

: 3 sit ! ENVIRONMENT: User mode - AST reentrant 

3 re sre : AUTHOR: Steven B. Lionel, CREATION DATE: 14-October-1981 

PY 42 004 1 | MODIFIED BY: 

s 65 0043 1! 

: «644 0044 1! 1-001 - Original. SBL 14-October-1981 

; 45 0045 1 i- 

; 46 0046 1 
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PASSHALT HALT procedure 1b-Se 1984 01:38:44 AX-11 Bliss-32 V4.0-742 Page 3 
1-001 PASSHALT = Halt program execution 12286871 382 3:88:34 PASRTL.SRCIPASHALT. 32;1 (3) | 
; 2 0141 1 XSBTTL ‘PASSHALT - Halt program execution' 
; 81 p148 1 GLOBAL ROUTINE PASSHALT 
; ; Be? ! : NOVALUE = 
: 84 0145 1 !+4 
: 52 8108 : FUNCTIONAL DESCRIPTION: | 
=. 0148 1! This procedure implements the Pascal HALT procedure which 
: 88 0149 1! terminates program execution. PASSHALT accomplishes this 
; 0150 1! by signalling the error poe tay Pigeons tae E Unless a user 
; 90 0151 1! condition handler intercepts this exception, program execution 
; 33 b13¢ : } will terminate. 
; 95 0154 i CALLING SEQUENCE: | 
: 95 0156 1 CALL PASSHALT | 
; 44 o138 | | FORMAL PARAMETERS: | 
: 99 0160 1 | NONE 
: 100 0161 1! 
; 135 peg : : IMPLICIT INPUTS: | 
: 103 0164 1: NONE 
> 104 0165 1! 
; igs 8188 : IMPLICIT OUTPUTS: 
: 107 0168 1! NONE 
: 108 0169 1! 
: 192 Bley : ROUTINE VALUE: 
: 0111 0172 1: NONE 
s 2 0175 1! 
: i? pire : SIDE EFFECTS: 
: 115 0176 1: NONE 
s 116 0177 1! 
: tA pie : SIGNALLED ERRORS: 
; 119 0180 1! NONE PAS$_HALT is signalled but is not considered an ‘'error’’ 
; 139 oie | in this context. | 
: 122 0183 1 i-- 
s 123 He: 1 
: 124 185 2 BEGIN 
s Yeo 0186 2 q 
3 1¢6 ah TA § SIGNAL_STOP (PAS$_HALT>; ! Signal PAS$_HALT 
: Hh 44 § RETURN; ' Execution never returns here | 
; 1%6 0191 1 END; ! End of routine PASSHALT 


-TITLE PASSHALT HALT procedure 
-IDENT \1-001\ 


-EXTRN PASSHALT, PASS$_HALT 


PASSHALT 
1-601 


; Routine Size: 


: 182 
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HALT procedure 16-Sep-1984 01:38:44 AX-11 Bliss-32 V4.0-742 
PASSHALT - Halt program execution 18798871382 0:38:44 PASRTL. RCIPASHALT.B32"1 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 

0000 £0000 ENTRY PASSHALT, Save nothing 
00000000G 8F ODD SONS PUSHL #PAS$_HALT 
01 FB 0000 
04 0000F 


000000006 00 CALLS #1, LYTBSSTOP 


16 bytes, Routine Base: _PAS$CODE + 0000 


13¢ 1 
193 1 !<BLF/PAGE> 


a HALT procedure 

1-001 PASSHALT = Halt program execution 
y 3 194 1 END 

. Soe 195 1 

s 1356 0196 0 ELUDOM 


PSECT SUMMARY 
Name Bytes 


Se ee Ge Ge ee 


Library Statistics 


; File Total 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 

> 7$255$DUA28: CPASRTL.OBJJPASL1B.L32;1 427 

4 COMMAND QUALIF 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/L 


3; Size: 16 code + 0 data bytes 
; Run Time: 00:03.1 

; Elapsed Time: 00:11. 

3; Lines/CPU Min: 3855 

$ Teeny Aah gag 3816 

: pee | Used: 26 pages 

; a 


; Compilation Complete 


_PASSCODE 16 NOVEC,NOWRT, 


15 | 
16-Sep-19 8:44  YAX~11 Bliss~32 V4.0=742 Page 5. 
10-88-1986 12:51:31 EPASRTL SRE SPASHALT 5201 oa 


! End of module PASSHALT 


-EXTRN LIBSSTOP 


Attributes 
RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Symbols -------- Pages Processing 
Loaded Percent Mapped Time 
0 0 581 00:01.0 
2 0 33 00:00.4 
IERS 


IS=L1S$:PASHALT/OBJ=OBJ$:PASHALT MSRC$:PASHALT/UPDATE=(ENH$:PASHALT) 
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